home *** CD-ROM | disk | FTP | other *** search
/ START Magazine / START VOL 4 NO 1.st / POGOSRC.ARC / STPACK.ASM < prev    next >
Encoding:
Assembly Source File  |  1985-11-20  |  2.1 KB  |  120 lines
  1.  
  2. bytes_same
  3.     move.l    a0,a2
  4.     move.w    d0,d1
  5.     clr.l    d5
  6.     move.b    (a2),d2
  7.     bra    zasloop
  8. asloop
  9.     cmp.b    (a2)+,d2
  10.     bne    zam_same
  11.     addq.l    #1,d5
  12. zasloop    dbra    d1,asloop
  13. zam_same    rts
  14.  
  15.     ; bytes_different - calculates # of words with no runs of 3 or more
  16.     ;    that are the same
  17. bytes_different
  18.     clr.l    d5
  19.     move.l    a0,a2
  20.     move.w    d0,d1
  21.     move.b    (a2),d2
  22.     not.b    d2    ; make sure this != last to start loop
  23.     bra    zad_loop
  24. ad_loop    move.b    d3,d4
  25.     move.b    d2,d3
  26.     move.b    (a2)+,d2
  27.     cmp.b    d2,d3
  28.     bne    incad_ct
  29.     cmp.b    d2,d4
  30.     bne    incad_ct  ;takes three in a row to break out of "different"
  31.     subq.l    #2,d5
  32.     bra    zadiff
  33. incad_ct    addq.l    #1,d5
  34. zad_loop    dbra    d1,ad_loop
  35. zadiff     rts
  36.  
  37.  
  38.     public _pack
  39. _pack
  40. firstp    set 4+4*5
  41. s    set    firstp
  42. d    set firstp+4
  43. c    set    firstp+8
  44.     movem.l    a2/d2/d3/d4/d5,-(sp)
  45.     move.l    s(sp),a0
  46.     move.l    d(sp),a1
  47.     move.w    c(sp),d0
  48. plp    bsr    bytes_same
  49.     cmp.w    #2,d5    ; if run's less than 3 don't compress it
  50.     blt    diffccl
  51.     sub.w    d5,d0
  52.     adda.w    d5,a0
  53.     subq.w    #1,d5
  54.     neg.w    d5
  55.     move.b    d5,(a1)+
  56.     move.b    d2,(a1)+
  57.     tst.w    d0
  58.     bgt        plp
  59.     bra        zplp
  60. diffccl
  61.     bsr bytes_different
  62.     sub.w    d5,d0
  63.     subq.w    #1,d5
  64.     move.b    d5,(a1)+
  65. cpc move.b    (a0)+,(a1)+
  66.     dbra    d5,cpc
  67.     tst.w    d0
  68.     bgt        plp
  69. zplp
  70.     move.l    a1,d0
  71.     movem.l (sp)+,a2/d2/d3/d4/d5
  72.     rts
  73.  
  74.  
  75.     ;ravel_line(s, d, linebytes)
  76.     public _ravel_line
  77. _ravel_line
  78. firstp    set 4
  79. s    set firstp
  80. d    set firstp+4
  81. linebytes    set firstp+8
  82.     move.l    s(sp),a0
  83.     move.l    d(sp),a1
  84.     move.w    linebytes(sp),d0
  85.     lsr.w    #1,d0    ;byte to word count
  86.     bra    zrvloop
  87. rvloop    move.w    (a0),(a1)+
  88.     add.w    #8,a0
  89. zrvloop    dbra    d0,rvloop
  90.     rts
  91.  
  92.     ;ravel_4line(s, d, linebyte)
  93.     public _ravel_4line
  94. _ravel_4line
  95. rlregs    reg    d2/a2
  96. firstp    set 4+4*2
  97. s    set firstp
  98. d    set firstp+4
  99. linebytes    set firstp+8
  100.     movem.l    rlregs,-(sp)
  101.     move.l    s(sp),a0
  102.     move.l    d(sp),a1
  103.     move.w    linebytes(sp),d0
  104.     asr.w    #1,d0    ; byte to word count
  105.     move.w    #3,d2    ; planecount - 1
  106. rl_ploop    
  107.     move.l    a0,a2    ; scratch copy of source
  108.     move.w    d0,d1    ; scratch copy of linewords
  109.     bra    zwordl
  110. wordl    move.w    (a2),(a1)+
  111.     adda    #8,a2
  112. zwordl    dbra    d1,wordl
  113.     adda    #2,a0    ; inc source to next plane
  114.     dbra    d2,rl_ploop
  115.  
  116.     movem.l    (sp)+,rlregs
  117.     rts
  118.  
  119.  
  120.